Ahoy 1986 October/Ahoy_Magazine_86-10_1986_Double_L.d64/Quick Change

Commodore BASIC | 2022-10-26 | 7KB | 135 lines

5 rem *** quick change *** buck childress ***
10 rem *** p.o. box 13575 salem, or 97309 ***
15 printchr$(147)"loading and checking data line:":j=50000:l=50:c=11
20 printchr$(19)tab(31)l:print:forb=0toc:reada:ifa<0ora>255then30
25 pokej+b,a:x=x+a:nextb:reada:ifa=xthen35
30 print"error in data line:"l:end
35 x=0:j=j+12:l=l+5:ifl<671then20
40 print"the data is ok and loaded.":print
45 print"sys 50000 to switch on and off.":end
50 data169,106,162,132,160,195,204,1,3,208,6,169,1515
55 data139,162,135,160,227,141,0,3,140,1,3,76,1187
60 data251,199,173,0,2,201,65,144,4,201,91,144,1475
65 data3,76,139,227,32,237,199,32,217,199,133,253,1747
70 data162,96,134,251,142,138,2,157,0,201,232,208,1723
75 data250,232,169,39,141,248,201,32,79,199,169,91,1850
80 data133,252,141,247,201,162,10,32,251,199,133,254,2015
85 data166,252,169,100,32,171,199,32,66,199,32,7,1425
90 data200,32,228,255,240,245,133,212,201,13,208,44,2011
95 data173,96,201,240,227,169,32,166,252,157,0,4,1717
100 data166,251,48,13,169,192,162,24,160,171,133,251,1740
105 data132,252,76,159,195,173,192,201,208,86,162,139,1975
110 data134,199,32,251,199,76,52,196,201,20,208,39,1607
115 data174,247,201,48,3,76,120,195,169,0,162,32,1427
120 data157,192,201,202,16,250,164,254,32,162,199,132,1961
125 data254,140,247,201,169,192,162,171,133,251,134,252,2306
130 data76,164,195,166,254,224,26,144,3,76,171,195,1694
135 data230,254,166,251,157,0,201,230,251,230,252,32,2254
140 data210,255,165,252,16,3,141,247,201,76,164,195,1925
145 data32,240,199,162,105,32,251,199,169,0,162,9,1560
150 data157,0,2,172,233,201,208,3,157,230,201,202,1766
155 data16,242,174,233,201,169,100,157,251,4,173,134,1854
160 data2,157,251,216,32,66,199,32,7,200,32,228,1422
165 data255,240,245,201,13,208,39,173,233,201,240,20,2068
170 data173,235,201,201,2,144,229,32,181,199,173,238,2008
175 data201,208,107,173,239,201,208,102,169,255,141,238,2242
180 data201,141,239,201,141,230,201,76,234,196,201,20,2081
185 data208,30,172,233,201,240,9,32,162,199,140,233,1859
190 data201,76,60,196,169,32,141,251,4,160,79,32,1401
195 data162,199,200,132,254,76,244,195,201,45,208,20,1936
200 data174,231,201,208,159,141,231,201,32,210,255,238,2281
205 data233,201,32,181,199,76,60,196,201,48,144,140,1711
210 data201,58,176,136,174,232,201,224,5,176,129,157,1869
215 data0,2,32,210,255,238,232,201,238,233,201,76,1918
220 data78,196,32,237,199,32,217,199,173,248,201,32,1844
225 data79,199,172,192,201,208,8,162,77,32,140,199,1669
230 data76,18,197,162,87,32,140,199,162,96,32,251,1452
235 data199,162,96,32,145,199,162,119,32,251,199,174,1770
240 data236,201,173,237,201,32,205,189,169,45,32,210,1930
245 data255,173,230,201,208,12,174,238,201,173,239,201,2305
250 data32,205,189,76,59,197,162,128,32,251,199,162,1692
255 data38,32,251,199,32,66,199,32,7,200,32,228,1316
260 data255,201,89,240,7,201,78,208,239,76,120,195,1909
265 data169,1,162,8,141,240,201,142,241,201,32,237,1775
270 data199,141,138,2,141,245,201,32,127,199,160,0,1585
275 data177,253,208,3,76,116,164,32,15,199,177,253,1673
280 data170,32,15,199,177,253,142,250,201,141,251,201,2032
285 data205,237,201,144,7,208,23,236,236,201,176,18,1892
290 data32,205,189,32,15,199,162,0,161,253,240,82,1570
295 data32,15,199,76,152,197,205,239,201,144,9,208,1677
300 data199,236,238,201,144,2,208,192,32,205,189,169,2015
305 data32,32,210,255,32,15,199,169,39,162,201,141,1487
310 data249,201,141,253,201,134,252,169,96,162,0,133,1991
315 data251,142,242,201,142,246,201,161,253,240,23,32,2134
320 data88,198,173,242,201,205,246,201,208,88,162,0,2012
325 data161,251,240,91,32,15,199,76,211,197,142,244,1859
330 data201,32,240,199,173,245,201,208,16,32,15,199,1761
335 data165,253,166,254,141,240,201,142,241,201,76,94,2174
340 data197,162,0,32,251,199,169,19,141,119,2,169,1460
345 data13,141,120,2,141,121,2,141,122,2,169,4,978
350 data133,198,76,116,164,32,127,199,32,15,199,32,1323
355 data15,199,162,0,32,15,199,161,253,208,249,76,1569
360 data249,197,32,7,200,32,15,199,76,199,197,172,1575
365 data242,201,32,162,199,141,245,201,185,192,201,240,2241
370 data233,32,195,198,200,76,76,198,166,212,208,64,1858
375 data174,253,201,142,249,201,162,18,201,131,240,5,1977
380 data202,201,143,208,3,142,253,201,201,128,144,40,1866
385 data56,233,127,170,160,255,202,240,8,200,185,158,1994
390 data160,16,250,48,245,200,185,158,160,48,14,238,1722
395 data243,201,32,156,198,169,0,141,243,201,76,133,1793
400 data198,56,233,128,72,162,0,193,251,208,26,173,1700
405 data248,201,201,10,240,16,166,212,240,7,201,62,1804
410 data240,8,76,189,198,205,249,201,208,3,238,246,2061
415 data201,230,251,238,242,201,104,174,244,201,48,11,2145
420 data208,12,166,211,224,79,144,3,142,244,201,76,1710
425 data210,255,173,243,201,240,2,104,104,104,104,162,1902
430 data192,142,244,201,162,61,32,251,199,174,250,201,2109
435 data173,251,201,32,205,189,169,32,32,210,255,32,1781
440 data127,199,169,3,133,252,164,252,177,253,240,8,1977
445 data32,88,198,230,252,76,254,198,76,116,164,230,1914
450 data253,208,2,230,254,96,201,8,240,251,201,11,1955
455 data240,247,201,16,240,243,201,19,240,239,201,24,2111
460 data240,235,201,27,240,231,201,32,240,227,201,35,2110
465 data240,223,201,56,240,219,201,59,240,215,169,0,2063
470 data133,198,173,141,2,201,4,208,204,165,203,201,1833
475 data64,240,243,160,0,201,39,240,24,160,9,201,1581
480 data10,240,18,160,18,201,17,240,12,160,27,201,1304
485 data18,240,6,160,36,201,62,208,169,141,248,201,1690
490 data162,16,185,249,200,240,121,32,171,199,232,200,2007
495 data76,114,199,173,240,201,174,241,201,133,253,134,2139
500 data254,76,15,199,32,251,199,162,0,189,96,201,1674
505 data240,7,32,210,255,232,76,145,199,169,34,76,1675
510 data210,255,169,20,32,210,255,136,208,250,96,157,1998
515 data0,4,173,134,2,157,0,216,96,169,0,162,1113
520 data2,133,122,134,123,141,232,201,32,121,0,32,1273
525 data107,169,165,20,174,235,201,157,236,201,232,165,2062
530 data21,157,236,201,232,142,235,201,96,162,11,160,1854
535 data0,24,32,240,255,169,42,160,39,32,164,199,1356
540 data162,147,76,251,199,32,68,229,169,0,133,198,1664
545 data133,199,133,212,133,216,96,189,25,200,240,250,2026
550 data32,210,255,232,76,251,199,32,225,255,208,238,2213
555 data104,104,169,0,141,138,2,32,68,229,76,116,1179
560 data164,13,83,89,83,53,48,55,50,53,0,17,708
565 data13,79,76,68,32,69,78,84,82,89,63,32,765
570 data0,13,13,78,69,87,32,69,78,84,82,89,694
575 data63,32,0,13,13,18,65,82,69,32,89,79,555
580 data85,32,83,85,82,69,63,32,40,89,47,78,785
585 data41,0,13,13,18,32,84,79,79,32,76,79,546
590 data78,71,32,13,13,0,13,13,69,82,65,83,532
595 data69,32,34,0,13,13,84,85,82,78,32,34,556
600 data0,13,13,73,78,84,79,32,34,0,13,13,432
605 data84,72,69,32,82,65,78,71,69,63,32,0,717
610 data13,13,76,73,78,69,83,32,0,69,78,68,652
615 data0,79,78,0,79,70,70,0,32,69,82,65,624
620 data83,69,32,0,13,13,13,67,84,82,76,32,564
625 data65,32,61,32,65,76,76,13,67,84,82,76,729
630 data32,68,32,61,32,68,65,84,65,13,67,84,671
635 data82,76,32,78,32,61,32,78,79,82,77,65,774
640 data76,13,67,84,82,76,32,81,32,61,32,81,717
645 data85,79,84,69,83,13,67,84,82,76,32,82,836
650 data32,61,32,82,69,77,83,19,0,160,142,143,900
655 data146,141,129,140,160,0,160,160,129,140,140,160,1605
660 data160,160,0,160,160,146,133,141,147,160,160,0,1527
665 data160,160,132,129,148,129,160,160,0,160,145,149,1632
670 data143,148,133,147,160,0,0,0,0,0,0,0,731